SET WIDTH 132
SET HEADER ON
SET PRINTBACK LISTING
GET FILE = 'C:\SPSS\V\APSR24-2.SAV'    /MAP
* NOTE THAT THE FILE LOCATIONS OF THE FILES REFERENCED HERE MUST BE ALTERED
* NOTE THAT THIS SYNTAX FILE WAS CREATED TO RUN IN PRODUCTION MODE
DISPLAY VARLIST
DISPLAY SORTED VARLIST
FREQUENCIES VARI =
  WEIGHT
  ABORTION MORAL PARTYID SCLIB SCSUP1 SCSUP5 SCSUP7
  AWARE APPROVE RLAW2 ORDER3 RLAW4 RLAW7
  RLAW8
  DOG3 DOG4 DOG5 POLVIEWS GENDER AGE7 RACETHNICITY
  EDUC5 MARITAL EMPLOY INCOME9 METRO INTERNET HOUSING
  N919
  /STAT=ALL

COMPUTE APPAWARE = APPROVE * AWARE
VAR LABELS APPAWARE Interaction of Decision Approval and Awareness
COMPUTE SCLIBD = SCLIB
RECODE SCLIBD (1,2,4,5=0)(3=1)
VALUE LABELS SCLIBD (0)DISSATISFIED(1)ABOUT RIGHT
VAR LABELS SCLIBD Specific Support, Satisfaction with Court Decisions
FREQUENCIES VARI = SCLIB SCLIBD POLVIEWS

COMPUTE SCDISTANCE = SCLIB - ((POLVIEWS * 4) + 1)
VALUE LABELS SCDISTANCE (-4)Much more liberal than me
  (4)Much more conservative than me
VAR LABELS SCDISTANCE Ideological Distance between the Respondent and the Court
FREQUENCIES VARI = SCDISTANCE
COMPUTE SCDISTANCE2 = ABS (SCDISTANCE)/* range = 0 to 4
FREQUENCIES VARI = SCDISTANCE2 /STAT=ALL
COMPUTE SCDISTANCE2 = SCDISTANCE2 / 4
VALUE LABELS SCDISTANCE2 (0)Maximum Distance(1)Same Location
VAR LABELS SCDISTANCE2 Ideological Distance Between Repondent and Supreme Court
FREQUENCIES VARI = SCDISTANCE SCDISTANCE2
COMPUTE SCDISTANCE2 = (SCDISTANCE2 * -1) + 1
FREQUENCIES VARI = SCDISTANCE SCDISTANCE2 /STAT=ALL
CROSSTABS TABLES = SCDISTANCE BY SCDISTANCE2

COMPUTE OWNHOMED = HOUSING
VAR LABELS OWNHOMED WHETHER OWNS HOME
VALUE LABELS OWNHOMED(1)OWNS(0)DOES NOT OWN
RECODE OWNHOMED(2,3=0)
COMPUTE RACED = RACETHNICITY
VAR LABELS RACED Whether White
VALUE LABELS RACED(1)White(0)Not White
RECODE RACED (1=1)(ELSE=0)
COMPUTE MARITALD = MARITAL
VAR LABELS MARITALD Whether Married
RECODE MARITALD (1=1)(ELSE=0)
VALUE LABELS MARTIALD (1)Married(0)Not Married
COMPUTE EMPLOYD = EMPLOY
VAR LABELS EMPLOYD Whether Employeed
VALUE LABELS EMPLOYD(1)Employed, Working(0)Not Working
RECODE EMPLOYD(1,2=1)(ELSE=0)
FREQUENCIES VARI
  RACED MARITALD EMPLOYD
COMPUTE GENDERD=GENDER
RECODE GENDERD (2=1)(1=0)
VAR LABELS GENDERD Whether Female
VALUE LABELS GENDERD (0)Male(1)Female
TITLE APSR24 DOBBS REPLICATION
WEIGHT BY WEIGHT
*CREATING THE DEPENDENT VARIABLES
SUBTITLE PSYCHOMETRICS FOR APPENDIX B
FREQUENCIES VAR=
    SCSUP1 SCSUP5 SCSUP7 
  /STAT=ALL
TEMPORARY
RECODE
    SCSUP1 SCSUP5 SCSUP7 
  (1=2)(5=4)
FREQUENCIES VAR=
    SCSUP1 SCSUP5 SCSUP7 
  /STAT=ALL

FACTOR VARI=
  SCSUP1 SCSUP5 SCSUP7 
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN
  /SAVE=REG(ALL FSCSUP)
RELIABILITY VARI=                                                               
  SCSUP1 SCSUP5 SCSUP7 
  /SCALE(LEGIT)= 
  SCSUP1 SCSUP5 SCSUP7 
  /STAT=ALL/SUMM=ALL
COUNT SCSUP3IC =   SCSUP1 SCSUP5 SCSUP7 (1,2)
COUNT SCSUP3INC =   SCSUP1 SCSUP5 SCSUP7 (4,5)
COMPUTE SCSUP3IX = MEAN.2(SCSUP1,SCSUP5,SCSUP7)
FREQUENCIES VARI = SCSUP3IC SCSUP3IX SCSUP3INC /STAT=ALL
IF SYSMIS (SCSUP3IX ) SCSUP3IC =$SYSMIS
IF SYSMIS (SCSUP3IX ) SCSUP3INC =$SYSMIS
COMPUTE SCSUP3IX = (SCSUP3IX - 1)/4
VAR LABELS SCSUP3INC Number of Pro-Legitimacy Items Endorsed
VAR LABELS SCSUP3IC Number of Anti-Legitimacy Items Endorsed
VAR LABELS SCSUP3IX Average Support for the Supreme Court
FORMATS SCSUP3IC (F1.0)
FREQUENCIES VARI = SCSUP3IC SCSUP3IX SCSUP3INC /STAT=ALL
SUBTITLE PSYCHOMETRICS FOR APPENDIX B
*CREATING THE RULE OF LAW INDEX
FACTOR VARI=
  RLAW2 RLAW4 RLAW7 RLAW8
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(300)  /EXTRA=PAF
 /SAVE=REG(ALL FRLAW)
RELIABILITY VARI=                                                               
  RLAW2 RLAW4 RLAW7 RLAW8
  /SCALE(DOG)= 
  RLAW2 RLAW4 RLAW7 RLAW8
  /STAT=ALL/SUMM=ALL

COMPUTE RLAWX4=MEAN.2(RLAW2,RLAW4,RLAW7,RLAW8)
VAR LABELS RLAWX4 MEAN SUPPORT FOR THE RULE OF LAW, 4 ITEMS
COUNT RLAWC4 =
  RLAW2 RLAW4 RLAW7 RLAW8 (4,5)
VAR LABELS RLAWC4 NUMBER OF STATEMENTS WITH PRO-RULE OF LAW RESPONSE, 4 ITEMS
FREQUENCIES VARI = RLAWC4 RLAWX4 FRLAW1/STAT =ALL
IF SYSMIS (RLAWX4) RLAWC4=$SYSMIS
COMPUTE RLAWX4 = (RLAWX4 - 1)/4
FREQUENCIES VARI = RLAWC4 RLAWX4/STAT =ALL
CORRELATIONS VARI = RLAWC4 RLAWX4 FRLAW1/STAT =ALL

TITLE DOGMATISM
SUBTITLE PSYCHOMETRICS FOR APPENDIX B

MISSING VALUES   DOG3 DOG4 DOG5  (77,98,99)
FREQUENCIES VARI =  DOG3 DOG4 DOG5
   /STAT=ALL
TEMPORARY
RECODE
  DOG3 DOG4 DOG5
  (1=2)(5=4)
FREQUENCIES VARI =  DOG3 DOG4 DOG5
   /STAT=ALL
FACTOR VARI=
  DOG3 DOG4 DOG5
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(300)  /EXTRA=PAF
 /SAVE=REG(ALL FDOG)

VAR LABELS FDOG1 OPENMINDEDNESS 
COMPUTE DOGX=MEAN.2(DOG3,DOG4,DOG5)
VAR LABELS DOGX OPENMINDEDNESS 
COUNT DOGC =
  DOG3 DOG4 DOG5 (4,5)
VAR LABELS DOGC NUMBER OF STATEMENTS WITH OPENMINDED RESPONSES
FREQUENCIES VARI = DOGC /STAT =ALL
IF SYSMIS (DOGX) DOGC=$SYSMIS

FREQUENCIES VARI = DOGX DOGC FDOG1 /STAT =ALL
CORRELATIONS VARI = DOGX DOGC FDOG1 /STAT =ALL
COMPUTE DOGX = ( (DOGX - 1) / 4)
FREQUENCIES VARI = DOGX FDOG1 /STAT =ALL
RELIABILITY VARI=                                                               
  DOG3  DOG4 DOG5
  /SCALE(DOG)= 
  DOG3  DOG4 DOG5
  /STAT=ALL/SUMM=ALL

* ADDITIONAL VARIABLE CREATION 
COMPUTE ABORTION2 = (ABORTION * -1)+ 1
CROSSTABS TABLES = ABORTION2 BY ABORTION
COMPUTE ABORTMORAL2 = ABORTION2 * MORAL
VAR LABELS ABORTION2 Abortion Attitudes
VAR LABELS ABORTMORAL2 Attitudes-Moral Interaction
VALUE LABELS ABORTION2 (0)Legal in all cases(1)Illegal in all cases

TITLE ANALYSES REPORTED IN THE ARTICLE
* This is the 2023 data point that is added to Gibson's earlier published data
FREQUENCIES VARI = SCSUP3IC /STAT=ALL
TITLE TABLE 1, WITH DEMOCRATIC VALUES, ABORTION HI = ILLEGAL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  SCSUP3IX 
  APPROVE AWARE APPAWARE
  ABORTION2
  MORAL
  ABORTMORAL2
  SCLIBD
  SCDISTANCE2
  
  POLVIEWS PARTYID
  GENDERD AGE7
  EDUC5 INCOME9 OWNHOMED
  RACED MARITALD EMPLOYD
 
  METRO INTERNET
  RLAWX4 DOGX ORDER3
  /stat=r anova cha coeff zpp ses label f  COLLIN TOL
  /DEPE =  SCSUP3IX
   /ENTER = APPROVE AWARE
   APPAWARE
  /ENTER = ABORTION2 MORAL 
  ABORTMORAL2
  /ENTER = SCLIBD SCDISTANCE2 
  /ENTER = POLVIEWS PARTYID
  /ENTER = GENDERD TO INTERNET
  /ENTER=   RLAWX4 DOGX ORDER3


DESCRIPTIVES VARI =
  SCSUP3IX 
  APPROVE AWARE APPAWARE
  ABORTION2
  MORAL
  ABORTMORAL2
  SCLIBD
  SCDISTANCE2
  
  POLVIEWS PARTYID
  GENDERD AGE7
  EDUC5 INCOME9 OWNHOMED
  RACED MARITALD EMPLOYD
 
  METRO INTERNET
  RLAWX4 DOGX ORDER3
  /STAT=MEAN STDDEV MAX MIN 
  /MISS=LIST
TEMPORARY
SELECT IF (N919 EQ 0)
FREQUENCIES VARI =
  SCSUP3IX 
  APPROVE AWARE APPAWARE
  ABORTION2
  MORAL
  ABORTMORAL2
  SCLIBD
  SCDISTANCE2
  
  POLVIEWS PARTYID
  GENDERD AGE7
  EDUC5 INCOME9 OWNHOMED
  RACED MARITALD EMPLOYD
 
  METRO INTERNET
  RLAWX4 DOGX ORDER3
  /STAT=ALL
* Distribution information, Table C.1
SUBTITLE TABLE C.1
DESCRIPTIVES VARI =
  SCSUP3IX 
  APPROVE AWARE APPAWARE
  ABORTION2
  MORAL
  ABORTMORAL2
  SCLIBD
  SCDISTANCE2
  
  POLVIEWS PARTYID
  GENDERD AGE7
  EDUC5 INCOME9 OWNHOMED
  RACED MARITALD EMPLOYD
 
  METRO INTERNET
  RLAWX4 DOGX ORDER3
  /STAT=MEAN STDDEV MAX MIN 
  /MISS=LIST

TITLE 2023 GRAPH IN FIGURE D.1
* NOTE: THE VARIABLE N919 ALLOWS THE N TO BE HELD CONSTANT
  TO THAT REPORTED IN TABLE 1
VAR LABELS PARTYID Party Identification
FREQUENCIES VARI=PARTYID/STAT=ALL
TEMPORARY
*RETURN PARTYID TO ITS ORIGINAL SCORING
COMPUTE PARTYID = (PARTYID *6) + 1
VALUE LABELS PARTYID 
  (1)Strong Democrat
  (2)Democrat
  (3)Lean Democrat
  (4)Independent, Don't Lean, None
  (5)Lean Republican
  (6)Republican 
  (7)Strong Republican
GRAPH
  /TEMPLATE = 'C:\WS2000\FIG D-1.sgt'
  /BAR (GROUPED)= PIN (0,0) ( SCSUP3INC  ) BY PARTYID


MEANS TABLES = SCSUP3IX BY PARTYID/STAT=ALL 
COMPUTE APPROVEORIG = (APPROVE*3)+1
VALUE LABELS APPROVEORIG (1)Strongly Disapprove
  (2)Disapprove(3)Approve(4)Strongly Approve
VAR LABELS APPROVEORIG Approval of the Dobbs Decision
FREQUENCIES VARI = APPROVEORIG APPROVE

SORT CASES BY APPROVEORIG
SPLIT FILE BY APPROVEORIG
TITLE APPENDIX D, DEMOCRATIC VALUES ONLY 
REGRESSION MISS=LIST/DESC=ALL/VARI=
  SCSUP3IX 
  APPROVE AWARE APPAWARE
  ABORTION2
  MORAL
  ABORTMORAL2
  SCLIBD
  SCDISTANCE2
  
  POLVIEWS PARTYID
  GENDERD AGE7
  EDUC5 INCOME9 OWNHOMED
  RACED MARITALD EMPLOYD
 
  METRO INTERNET
  RLAWX4 DOGX ORDER3
  /stat=r anova cha coeff zpp ses label f  COLLIN TOL
  /DEPE =  SCSUP3IX
  /ENTER=   RLAWX4 DOGX ORDER3

SPLIT FILE OFF

TITLE THIS FILE IS FOR DOING THE DIFFERENCE OF MEANS TESTS IN FIGURE 2
GET FILE = 'C:\SPSS\V\5 WAVE CHANGE 2.SAV'/MAP
DISPLAY VARLIST
DISPLAY SORTED VARLIST
FREQUENCIES VAR = SCSUP3INC  WAVE /STAT=ALL
MEANS TABLES = SCSUP3INC BY WAVE/STAT=ALL

GRAPH
  /TEMPLATE = 'C:\WS2000\APSR24, FIG 2.sgt'
  /BAR (GROUPED)= PIN (0,0) ( SCSUP3INC  ) BY WAVE
*DIFFERENCES ACROSS WAVES
* STATEMENT ABOUT DIFFERENCES ACROSS WAVES
* ALL ARE SIGNIFICANT ACROSS WAVES
* These are difference of means tests for the Notes in Figure 1

MEANS TABLES = SCSUP3IX BY WAVE /STAT=ALL
TEMPORARY
SELECT IF (WAVE GE 4)
MEANS TABLES = SCSUP3IX BY WAVE /STAT=ALL
TEMPORARY
SELECT IF (WAVE EQ 1 OR WAVE EQ 5)
MEANS TABLES = SCSUP3IX BY WAVE /STAT=ALL
SORT CASES BY WAVE
SPLIT FILE BY WAVE
FREQUENCIES VARI = SCSUP3IX /STAT=ALL
SPLIT FILE OFF
CONPUTE

